﻿Imports TransBancarias.wsCliente
Imports System.Net
Imports System.IO

Public Class ClienteDAL
    Public Function ListaClientesxFiltros(ByVal nombres As String, ByVal apellidos As String, ByVal numCuenta As String) As DataSet
        Dim ws As New wsCliente.WSCliente()
        Return ws.ListaClientesxFiltro(nombres, apellidos, numCuenta)
    End Function

    Public Function InformacionFinanciera(ByVal dniCliente As String) As DataSet
        Dim ws As New wsCliente.WSCliente()
        Return ws.InformacionFinancieraxDni(dniCliente)
    End Function

    Public Function ClientexDni(ByVal dni As String) As DataSet

        'Dim proxy As New WebClient()
        'Dim abc As Byte() = proxy.DownloadData(New Uri("http://localhost:1805/Clientes/" + dni))
        'Dim strm = New MemoryStream(abc)

        'Dim ds As New DataSet

        'ds.ReadXml(strm)
        'Return ds

        Dim ws As New wsCliente.WSCliente()
        Return ws.ClientexDni(dni)
    End Function

End Class
